home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / DFUE / CIM / stuff / scripts / arexx / CallSign.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2000-01-01  |  2.3 KB  |  78 lines
  1.  
  2.  
  3.  
  4. /* 
  5.  
  6.    Name:            CallSign.rexx
  7.    Version:         $VER: CallSign_rexx 1.21 (10.01.2000)
  8.    Author:          Jan-Erik Tervo
  9.    
  10.    Description:     Will change Caller Type to 'FAX' _if_ received Ring string is 'RING2'.
  11.                     
  12.                     Change 'RING2' to your corresponding fax CallSign RING.
  13.                     
  14.                     If you don't have CallSign feature connected to your phone line then
  15.                     you may want to change 'RING2' to 'RING' and change the Type example
  16.                     to Known.
  17.                     
  18.                     Intertex (at least IX 36 Extended DL) owners: Distinctive Ring is 
  19.                     enabled with command: 'AT-sdr=7'
  20.                     
  21.                     Feel free to modify this script to suite your needs.
  22.    
  23.    Requires:        AOS 3 or newer, ARexx, CIM r32 or better with ARexx Port enabled
  24.  
  25. */
  26.  
  27.  
  28.  
  29.      OPTIONS RESULTS
  30.  
  31.      ADDRESS COMMAND 'run >NIL: RequestChoice "CIM" "CallSign_rexx executing.." "OK"'
  32.  
  33.  
  34.  
  35.  
  36.  
  37.      ADDRESS CIM
  38.      
  39.      /* Is Incoming call going on? */
  40.  
  41.      DEVICE_OCP
  42.  
  43.      IF RC=5 THEN DO
  44.      
  45.                     /* Incoming call is going on, so we will continue. */
  46.  
  47.                     /* Lets get the received RING string.. */
  48.           
  49.                     RECEIVED_RINGSTR
  50.            
  51.                     /* change the Type IF correct RING-type was received.
  52.                        In this example we are looking for "RING2" */
  53.                     
  54.                     IF RESULT="RING2" THEN DO
  55.                     
  56.                                    SET_TYPE "FAX"
  57.                     
  58.                                    /* If we want to execute the new Type script,
  59.                                       a script execution reset must be done */
  60.                     
  61.                                    SCRIPT_EXERESET
  62.                                    
  63.                                    /* If FAX script configuration is done and
  64.                                       valid at Settings/Scripts/, then it will be
  65.                                       executed shortly. */
  66.                                       
  67.                                    ADDRESS COMMAND 'run >NIL: RequestChoice "CIM" "CallSign_rexx Changed Type to FAX" "OK"'
  68.  
  69.                     END
  70.           
  71.              
  72.  
  73.      END
  74.      
  75.  
  76.  
  77.  
  78.